home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue32 / bmpanim / BMPANIM.ZIP / Unit1.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1997-05-20  |  1.1 KB  |  60 lines
  1. unit Unit1;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,BmpAnim,
  7.   ExtCtrls, Menus, ComCtrls, StdCtrls;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     Edit1: TEdit;
  12.     UpDown1: TUpDown;
  13.     OnOff: TButton;
  14.     BmpAnimator1: TBmpAnimator;
  15.     Edit2: TEdit;
  16.     UpDown2: TUpDown;
  17.     Label1: TLabel;
  18.     Label2: TLabel;
  19.     procedure OnOffClick(Sender: TObject);
  20.     procedure Edit1Change(Sender: TObject);
  21.     procedure Edit2Change(Sender: TObject);
  22.   private
  23.     { Private declarations }
  24.     Off:Boolean;
  25.   public
  26.     { Public declarations }
  27.   end;
  28.  
  29. var
  30.   Form1: TForm1;
  31. implementation
  32. {$R *.DFM}
  33.  
  34. procedure TForm1.OnOffClick(Sender: TObject);
  35. begin
  36.   with BmpAnimator1 do
  37.   begin
  38.     Enabled := not Enabled;
  39.     if not Enabled then Position := 0;
  40.   end;
  41. end;
  42.  
  43. procedure TForm1.Edit1Change(Sender: TObject);
  44. begin
  45.   if not BmpAnimator1.Enabled then
  46.      BmpAnimator1.Position := UpDown1.Position;
  47. end;
  48.  
  49. procedure TForm1.Edit2Change(Sender: TObject);
  50. begin
  51. try
  52.   BmpAnimator1.Speed := StrToInt(Edit2.Text);
  53. except
  54.   BmpAnimator1.Speed := 15;
  55. end;
  56.  
  57. end;
  58.  
  59. end.
  60.